home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Visual Basic Source Code
/
Visual Basic Source Code.iso
/
vbsource
/
extrac
/
extract.bas
next >
Wrap
BASIC Source File
|
1995-05-09
|
2KB
|
24 lines
' '
' '
'DΘfintion gΘnΘrales '
' '
' '
DefInt A-Z
'Windows API function declarations '
Declare Function GetWindowWord% Lib "user" (ByVal hWnd As Integer, ByVal nOffset As Integer)
Declare Function DrawIcon Lib "User" (ByVal hDC As Integer, ByVal X As Integer, ByVal Y As Integer, ByVal hIcon As Integer) As Integer
Declare Function DestroyIcon% Lib "User" (ByVal hIcon As Integer)
Declare Function ExtractIcon% Lib "Shell" (ByVal hInst As Integer, ByVal lpszFileName As String, ByVal nIconIndex As Integer)
'GetWindowWord constants '
Global Const GWW_HINSTANCE = -6
Global Const GWW_HWNDPARENT = -8
Static Function ZTrim$ (lin$)
'ZTrim: Like Trim$, but works (only) for NULL-terminated
' (C-style) strings.
ZTrim$ = Trim$(Left$(lin$, InStr(lin$, Chr$(0)) - 1))
End Function